unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uSBDUnit_Executive, AppEvnts;

type
  TForm1 = class( TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
  private
    { Private declarations }
  public
    FExecutive: TSBDUnit_Executive;

  end;

var
  Form1: TForm1;

implementation



uses uSBDUnit_SampleExec1;

{$R *.dfm}

procedure TForm1.ApplicationEvents1Idle( Sender: TObject; var Done: Boolean);
begin
ApplicationEvents1.OnIdle := nil;
FExecutive.StartUp;
FExecutive.Free
end;

procedure TForm1.FormCreate( Sender: TObject);
begin
FExecutive := TSampleExec1.Create( self)
end;

end.
